home *** CD-ROM | disk | FTP | other *** search
/ French Postcards Plus / 350a_French_Postcards.dsk / BALONEE SCENE.bas next >
BASIC Source File  |  2020-07-23  |  1KB  |  47 lines
  1. 100 D$ =  CHR$(4)
  2. 105  PRINT D$;"BLOAD HIRES SCRUNCH"
  3. 110  HOME : TEXT 
  4. 120  VTAB 10: PRINT "SALLY AND HER ROOM MATE JUST GOT HOME   AND WERE CHECKING THE GROCERIES."
  5. 125  FOR G1 = 1 TO 3000: NEXT G1
  6. 130 A = 1
  7. 140  PRINT D$;"BLOAD PIC.BALONEE1,A$7000"
  8. 145  GOSUB 1000
  9. 150  GOSUB 500
  10. 160  VTAB 22: PRINT "THIS THING IS JUST ABOUT THE RIGHT SIZE FOR A LITTLE FUN! 
  11. 165  FOR ZZ = 1 TO 2000: NEXT 
  12. 170  PRINT D$;"BLOAD PIC.BALONEE2,A$7000"
  13. 175  GOSUB 1000
  14. 180  HOME 
  15. 190  VTAB 22: PRINT "WHAT DO YOU MEAN?  HOW CAN YOU HAVE A   GOOD TIME WITH A SASSAUGE?"
  16. 195  FOR G1 = 1 TO 2000: NEXT G1
  17. 230  PRINT D$;"BLOAD PIC.BALONEE3,A$7000"
  18. 231  GOSUB 1000
  19. 233  HOME 
  20. 235  VTAB 22: PRINT "MAKE SURE YOU HAVE IT RIGHT. IT FEELS   GOOD ALREADY.  IT SURE IS A BIG ONE!"
  21. 238  FOR G1 = 1 TO 1000: NEXT G1
  22. 240  PRINT D$;"BLOAD PIC.BALONEE4,A$7000"
  23. 241  GOSUB 1010
  24. 245  POKE  -16302,0
  25. 250  GOSUB 300
  26. 260  POKE  -16299,0
  27. 270  GOSUB 310
  28. 280  POKE  -16300,0
  29. 290  GOTO 250
  30. 300  REM 
  31. 310  FOR I = 1 TO 50  STEP A
  32. 320 TN = 200 -2 *A -I
  33. 330  POKE 768,TN: POKE 769,10
  34. 340  CALL 770
  35. 350  NEXT 
  36. 360 A = A +1
  37. 370  IF A >99  THEN 600
  38. 380  RETURN 
  39. 500  POKE  -16297,0
  40. 502  POKE  -16304,0
  41. 503  POKE  -16301,0
  42. 504  RETURN 
  43. 600  HOME : PRINT D$;"RUN MENU"
  44. 1000  POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
  45. 1001  RETURN 
  46. 1010  POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
  47. 1011  RETURN